home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / tpbsave.arc / BSDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-11  |  812 b   |  46 lines
  1. program deca;
  2. {program to show how to use BSAVE procedure}
  3.  
  4.  
  5. uses crt,graph;
  6.  
  7. var
  8.    x,
  9.    y,
  10.    a,
  11.    grdriver,
  12.    grmode:integer;
  13.    acx,
  14.    acy:array[0..9] of integer;
  15.    c:integer;
  16.    ac:arccoordstype;
  17.  
  18. {$i b:bsave.inc} {you might need to change the drive}
  19.  
  20. begin
  21.      grdriver:=detect;
  22.      grmode:=cgac2;
  23.      initgraph(grdriver,grmode,'');
  24.  
  25.      a:=0;
  26.  
  27.      for c:=0 to 9 do
  28.          begin
  29.               arc(319,99,a,a+35,200);
  30.               getarccoords(ac);
  31.               acx[c]:=ac.xend;
  32.               acy[c]:=ac.yend;
  33.  
  34.               a:=a+36;
  35.          end;
  36.  
  37.      for x:=0 to 8 do
  38.          for y:=x+1 to 9 do
  39.              line(acx[x],acy[x],acx[y],acy[y]);
  40.  
  41.      bsave('b:demo.pic');          {you might need to change the drive}
  42.  
  43.      textmode(c80);
  44.  
  45. end.
  46.